This command will alter the material emissive component of the object.

SET OBJECT EMISSIVE Object Number, Color Value

Object Number

Integer
The object number

Color Value

Dword
THe colour value to use

This command does not return a value.

The emissive component makes up one of the factors that controls the final colour of the object, specifically the colour the object emits irrespective of any light or ambience. Setting this value to a high colour will make it bright under its own inner colour.

sync on : sync rate 60 : hide mouse:cls 0:color backdrop 0

fog on:fog color 0:set ambient light 50

ObjectNumber=2:ImageNumber=2

wire=0:trans=0:cull=0:fliter=0:light=0:fog=0:ambient=0

set global object creation 0

set dir "models"

load object "ast4.x",ObjectNumber

set object specular ObjectNumber,0

rotate object ObjectNumber,270,0,0

set dir ".."

while mouseclick()<>2

 SET OBJECT EMISSIVE ObjectNumber,rgb(0,0,255)

if mouseclick()=1 then yrotate object ObjectNumber,wrapvalue(object angle y(ObjectNumber)+1)

sync

endwhile

while mouseclick()=1:endwhile

delete object ObjectNumber

end

BASIC3D Commands Menu
Index